<script>Function MenuListPut empty into MListPut "To_Monitor" & return after MListPut "To_Headlines" & return after MListPut "To_Descriptions" & return after MListreturn MListEnd MenuListOn MouseUpif the optionkey is not down thenset locktext of me to trueelseset locktext of me to falseend ifend MouseUpOn OpenMeput menuList() into bg fld "Services"end OpenMeOn To_monitorGo_Data "Bus Cycle"end To_monitorOn Go_Data WhereXlock screenpush cardgo card WhereXshow card fld "About..."unlock screenEnd Go_DataOn To_HeadlinesGo_Data "Bus Headlines"end To_HeadlinesOn To_DescriptionsGo_Data "Step Descriptions"end To_Descriptions</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>113</left>
<top>62</top>
<right>506</right>
<bottom>341</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>ActiveSel Template</name>
<script>Function Who_I_amReturn "2782210035,The 12 Steps of Personal Journal,Repository Port Views"End Who_I_AmFunction MenuListPut empty into MListPut "Ask_Questions" & return after MListPut "Show_All" & return after MListPut "Clear" & return after MListPut "Print_Me" & return after MListPut "Register_Me" & return after MListPut "Go_Repository" & return after MListreturn MListEnd MenuList-- SCRIPT OF: 2782210035,The 12 Steps of Personal Journal,Repository Port Views-- LAST CHANGED: Sat, Feb 29, 1992 at 12:19 PMOn Show_allgo "Twelve steps" in a new windowset the topLeft of the card window to 110,60end Show_allon ask_questionsput the rect of me into oldRectPut "0,0,608,424" into newRectset the rect of me to newRectRepeat with i = 1 to 12put line (i*3)-1 of bg fld "12 Steps Seeds" into msgXAnswer msgX with "Comment" or "I Will"if it is "comment" thenAsk "How so ..." & char 1 to 40 of msgX & "... "put return & msgX & return & it & return after the targetset the textStyle of last line of the target to "bold"end ifend repeatset the rect of me to oldRectend ask_questions-- SCRIPT OF: 2782117456,ActiveSel Port,Repository Port Views-- LAST CHANGED: Sat, Feb 29, 1992 at 12:10 PMOn OpenMeput menuList() into bg fld "Services"end OpenMeOn Register_mePut Pack_OID() into SourceXPut the short name of me && "of" && ¬bg fld "OClassNM" into NameXput the script of the target into ScriptXgo stack "Repository Port Views"DoMenu "New Card"Put NameX into bg fld "ONM"send CloseField to bg fld "ONM"Put SourceX into bg fld "Description"Put ScriptX into bg fld "Port Script"End Register_MeOn Print_mePrint bg fld the short name of the targetend Print_meOn Clearput empty into the targetend Clear-- SCRIPT OF: 2782115313,Top Port View,Repository Port Views-- LAST CHANGED: Sat, Feb 29, 1992 at 10:15 AMOn Go_repositorygotoObject_2 Who_I_am()end Go_repository</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>2</left>
<top>249</top>
<right>109</right>
<bottom>315</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>underline</textStyle>
<textHeight>12</textHeight>
<name>Services</name>
<script>on mouseUpPut word 2 of the Clickline into LNPut line LN of me into CMDxput bg fld "ActiveSel" into CurObjSend CMDx to bg fld CurObjend mouseUp</script>
<script>Function MenuListPut empty into MListPut "Import_Records" & return after MListPut "To_Headlines" & return after MListPut "To_Descriptions" & return after MListreturn MListEnd MenuListOn MouseUpif the optionkey is not down thenset locktext of me to trueelseset locktext of me to falseend ifend MouseUpOn OpenMeput menuList() into bg fld "Services"end OpenMeOn Import_Recordsput empty into meRead_from_FileDelete_Blank_Linesend Import_RecordsOn Read_from_FileAnswer file "Which one" of type "TEXT"Put it into File1open file file1read from file file1 until EOFput it into meclose file file1end Read_from_fileOn Delete_Blank_Linesput me into ListXPut delete_Blanks(ListX) into meend Delete_Blank_LInesOn Go_Data WhereXlock screenpush cardgo card WhereXshow card fld "About..."unlock screenEnd Go_DataOn To_HeadlinesGo_Data "Bus Headlines"end To_HeadlinesOn To_DescriptionsGo_Data "Step Descriptions"end To_Descriptions</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>474</left>
<top>411</top>
<right>600</right>
<bottom>433</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show Valuation</name>
<script>on mouseUpend mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>552</left>
<top>219</top>
<right>565</right>
<bottom>239</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1018</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Val Q1</name>
<script></script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>438</left>
<top>354</top>
<right>450</right>
<bottom>355</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1018</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Val Q3</name>
<script></script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>301</left>
<top>354</top>
<right>359</right>
<bottom>355</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Val Q5</name>
<script></script>
</part>
<part>
<id>60</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>244</left>
<top>354</top>
<right>302</right>
<bottom>355</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Val Q6</name>
<script></script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>187</left>
<top>354</top>
<right>245</right>
<bottom>355</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Val Q7</name>
<script></script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>130</left>
<top>354</top>
<right>188</right>
<bottom>355</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Val Q8</name>
<script></script>
</part>
<part>
<id>34</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>529</left>
<top>262</top>
<right>587</right>
<bottom>355</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textHeight>13</textHeight>
<name>Data Q1</name>
<script></script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>113</left>
<top>62</top>
<right>506</right>
<bottom>341</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Stock List</name>
<script>Function MenuListPut empty into MListPut "List_Stocks" & return after MListPut "Sort_List" & return after MListreturn MListEnd MenuListOn MouseUpif the optionkey is not down thenset locktext of me to trueset cursor to busyFill_Selection word 2 of the clickLineelseset locktext of me to falseend ifend MouseUpOn OpenMeshow card fld "Note"set locktext of me to trueput menuList() into bg fld "Services"end OpenMeOn Fill_Selection LNput the long name of this card into startXPut line LN of me into theStockPut theStock into HeaderXset the itemDelimiter to tabput item 2 of theStock into theTickerlock screenset the itemDelimiter to commaPut Stock_Lines(bg fld "Data Flow",theTicker) into ListXgo card "Earnings Chart"put startX into bg fld "Produced by"empty_tablePut HeaderX into bg fld "Header"Populate_Table ListXSet_Revenue_BarsSet_Earnings_BarsSet_Value_Barsend FIll_SelectionOn Empty_tablerepeat with i = 1 to 8Put "Data Q" & i into fldNm1put empty into card fld fldNm1end repeatEnd Empty_tableOn Set_Value_Barsglobal MX,MaxHeightPut 100 into MaxHeightrepeat with i = 1 to 8Put "Data Q" & i into fldNm1put line 4 of card fld fldNm1 into item i of EarnItemsput line 7 of card fld fldNm1 into item i of ValItemsend repeatrepeat with i = 1 to 8Put "Data Q" & i into fldNm1Put "Val Q" & i into ButNm2put top of card fld "Labels" into Y1reset_bar ButNm2put Trunc(item i of ValItems/item i of EarnItems) into RatioXIf RatioX is a number and ratioX > 0 thenput the loc of card button ButNm2 into oldLocput trunc(ln(RatioX) * 30) into thisYput Y1 - thisY into item 2 of oldLocset the loc of card button ButNm2 to oldLocset the height of card button butNm2 to 20set the width of card button butNm2 to 20end ifend repeatend Set_Value_BarsOn set_earnings_barsglobal MX,MaxHeightrepeat with i = 1 to 8Put "Data Q" & i into fldNm1put line 4 of card fld fldNm1 into item i of EarnItemsend repeatrepeat with i = 1 to 8Put "Data Q" & i into fldNm1Put "Earn Q" & i into ButNmreset_Bar ButNmif item i of EarnItems is not a number then next repeatput Trunc((item i of EarnItems+0)/MX * MaxHeight) into thisHIf thisH is a number thenif thisH > 0 thenset height of card button ButNm to thisHset highlight of card button ButNm to trueset bottom of card button ButNm to top of card fld fldNm1end ifend ifend repeatend Set_earnings_barsOn set_Revenue_barsglobal MX,MaxHeightPut 150 into MaxHeightrepeat with i = 1 to 8Put "Data Q" & i into fldNm1put line 3 of card fld fldNm1 into item i of RevItemsput line 7 of card fld fldNm1 into item i of ValItemsend repeatPut Max(RevItems) into MXrepeat with i = 1 to 8Put "Data Q" & i into fldNm1Put "Rev Q" & i into ButNmPut "Val Q" & i into ButNm2reset_bar ButNmreset_bar ButNm2put Trunc((item i of RevItems+0)/MX * MaxHeight) into thisHIf thisH is a number thenset height of card button ButNm to thisHend ifset bottom of card button ButNm to top of card fld fldNm1put Trunc((item i of ValItems+0)/MX * MaxHeight) into thisHIf thisH is a number and thisH > 0 thenput the top of card fld fldNm1 into TXsubtract thisH from TXput the loc of card button ButNm2 into LXput TX into item 2 of LXset the loc of card button ButNm2 to LXset the height of card button ButNm2 to 20end ifend repeatend Set_revenue_barsOn Reset_bar ButNmset height of card button ButNm to 1set highlight of card button ButNm to falseset bottom of card button ButNm to bottom of meend Reset_barOn Populate_table ListXset the itemDelimiter to tabrepeat with i = number of lines of ListX down to 1Put "Data Q" & i into fldNm1Put item 4 of line i of ListX into line 1 of card fld FldNm1Put item 5 of line i of ListX into line 2 of card fld FldNm1Put item 6 of line i of ListX into line 3 of card fld FldNm1Put item 8 of line i of ListX into line 4 of card fld FldNm1Put item 10 of line i of ListX into line 5 of card fld FldNm1Put item 12 of line i of ListX into line 6 of card fld FldNm1Put Market_Val(FldNm1) into line 7 of card fld FldNm1Put "Data Q" & i+4 into fldNm2Put item 4 of line i of ListX into line 1 of card fld FldNm2Put item 5 of line i of ListX into line 2 of card fld FldNm2Put item 7 of line i of ListX into line 3 of card fld FldNm2Put item 9 of line i of ListX into line 4 of card fld FldNm2Put item 11 of line i of ListX into line 5 of card fld FldNm2end repeatset itemDelimiter to commaend Populate_tableFunction Market_Val FldNmPut line 4 of card fld FldNm+0 into EXPut line 5 of card fld FldNm+0 into EPSXPut line 6 of card fld FldNm+0 into PXPut PX*EX/EPSX into VXIf VX is a number and EPSX > 0 thenreturn trunc(VX/4)elsereturn emptyend ifend Market_valFunction Stock_Lines SourceLIst,theTickerset the itemDelimiter to tabRepeat with i = 1 to number of lines of SourceListput line i of SourceList into LineXif item 3 of LineX is theTicker thenPut LineX & return after ResultListend ifend RepeatPut FullSort(ResultList,"i=tab","t=d","d=d","c=item 4") into ResultListset the itemDelimiter to commaPut line 1 to 4 of ResultList into RListReturn RListend Stock_LinesOn List_Stocksput empty into meset itemdelimiter to tabput extractItems(bg fld "Data Flow",2,3,tab) into ListXrepeat with i = 1 to number of lines of ListXPut Line i of ListX into LineXput item 2 of lineX into testXIf testX is in me thennext repeatelsePut LineX & return after meend ifend repeatset itemdelimiter to commaend List_StocksOn Sort_Listsort lines of meend Sort_ListOn Weeklylock screenpush cardGo card "IND Weekly"show card fld "About..."end Weekly</script>
